home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / EXCEPT / TRY2.DPR < prev    next >
Encoding:
Text File  |  1996-01-05  |  341 b   |  16 lines

  1. program try2;
  2. uses SysUtils, Dialogs, Hex;
  3.  
  4. var i: LongInt;
  5. begin
  6.   try
  7.     i := HexVal('GOOD');
  8.     ShowMessage('We will never get here!')
  9.   except
  10.     on EBadHexString do
  11.       ShowMessage('Error: a bad HexStr was passed...');
  12.     on EHexConversion do
  13.       ShowMessage('Error: a Hex conversion error occurred.')
  14.   end
  15. end.
  16.